(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[      6653,        194]
NotebookOptionsPosition[      5716,        158]
NotebookOutlinePosition[      6082,        174]
CellTagsIndexPosition[      6039,        171]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"$Path", "=", 
   RowBox[{"Reverse", "@", "$Path"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"<<", "TransferMatrixFormalism`"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.6002728441082325`*^9, 3.600272851253045*^9}, {
   3.6002736781050987`*^9, 3.6002736855619116`*^9}, 3.6002737312627926`*^9, {
   3.6002745689606643`*^9, 3.6002745765266776`*^9}, 3.6002747028436995`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FetchURL", "::", "httperr"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The request to URL \
\[NoBreak]\\!\\(\\\"http://massaricloud.chem.umn.edu/TransferMatrixFormalism.\
m/releasenotes.txt\\\"\\)\[NoBreak] was not successful. The server returned \
the HTTP status code \[NoBreak]\\!\\(\\\"404 (\\\\\\\"Not \
Found\\\\\\\")\\\"\\)\[NoBreak].\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.600274616072747*^9, 3.6002746811596613`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "nodir"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Directory \[NoBreak]\\!\\(\\\"C:\\\\\\\\Users\\\\\\\\Dan \
O'Brien\\\\\\\\AppData\\\\\\\\Roaming\\\\\\\\Mathematica\\\\\\\\Applications\\\
\\\\\\TransferMatrixFormalism\\\\\\\\TransferMatrixFormalism.m\\\\\\\\\\\"\\)\
\[NoBreak] does not exist. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \
\\\"Export::nodir\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.600274616072747*^9, 3.600274681222061*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"OpenWrite", "::", "noopen"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Cannot open \[NoBreak]\\!\\(\\\"C:\\\\\\\\Users\\\\\\\\Dan \
O'Brien\\\\\\\\AppData\\\\\\\\Roaming\\\\\\\\Mathematica\\\\\\\\Applications\\\
\\\\\\TransferMatrixFormalism\\\\\\\\TransferMatrixFormalism.m\\\\\\\\\
releasenotes.txt\\\"\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/noopen\\\", \
ButtonNote -> \\\"OpenWrite::noopen\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.600274616072747*^9, 3.600274681268862*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.600274658224021*^9, 3.6002746768540535`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["$TemporaryDirectory"], "Input",
 CellChangeTimes->{{3.6002731469007654`*^9, 3.6002731469007654`*^9}}],

Cell[BoxData["\<\"C:\\\\Users\\\\Dan \
O'Brien\\\\AppData\\\\Local\\\\Temp\"\>"], "Output",
 CellChangeTimes->{3.600273148585568*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
  "DownloadsServer", "=", "\"\<http://massaricloud.chem.umn.edu/\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"package", "=", "\"\<TransferMatrixFormalism\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "\"\<Utilities`URLTools`\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"PackageZip", "=", 
   RowBox[{"URLSave", "[", 
    RowBox[{
     RowBox[{
     "DownloadsServer", "<>", "package", "<>", "\"\</\>\"", "<>", "package", 
      "<>", "\"\<.zip\>\""}], ",", 
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{"$TemporaryDirectory", ",", 
        RowBox[{"package", "<>", "\"\<.zip\>\""}]}], "}"}], "]"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{"URLSave", "[", 
  "\"\<http://massaricloud.chem.umn.edu/TransferMatrixFormalism/\
TransferMatrixFormalism.zip\>\""}]}], "Input",
 CellChangeTimes->{{3.600273193990048*^9, 3.600273248122143*^9}, {
  3.600274310852611*^9, 3.6002743125218143`*^9}, {3.600274360393098*^9, 
  3.600274379144331*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DownloadsServer", "<>", "package", "<>", "\"\<.zip\>\""}]], "Input"],

Cell[BoxData["\<\"http://massaricloud.chem.umn.edu/TransferMatrixFormalism.\
zip\"\>"], "Output",
 CellChangeTimes->{3.6002742255360613`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"BeginPackage", "[", "\"\<test`\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Begin", "[", "\"\<`Private`\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"?", 
  RowBox[{"(*", "PacletManager`", "*)"}], "ZipExtractArchive"}]}], "Input",
 CellChangeTimes->{{3.6002740055050745`*^9, 3.6002741033806467`*^9}}],

Cell[BoxData["\<\"test`\"\>"], "Output",
 CellChangeTimes->{{3.600274081525008*^9, 3.600274104051448*^9}}],

Cell[BoxData["\<\"test`Private`\"\>"], "Output",
 CellChangeTimes->{{3.600274081525008*^9, 3.600274104051448*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Information", "::", "notfound"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Symbol \[NoBreak]\\!\\(\\\"ZipExtractArchive\\\"\\)\
\[NoBreak] not found. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/notfound\\\", ButtonNote -> \
\\\"Information::notfound\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6002741040826473`*^9}]
}, Open  ]],

Cell[BoxData["FileBaseName"], "Input",
 CellChangeTimes->{{3.600274480489309*^9, 3.600274480489309*^9}}]
},
WindowSize->{707, 787},
WindowMargins->{{Automatic, 363}, {Automatic, 52}},
ShowSelection->True,
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 439, 9, 52, "Input"],
Cell[1021, 33, 488, 10, 56, "Message"],
Cell[1512, 45, 632, 12, 56, "Message"],
Cell[2147, 59, 659, 12, 56, "Message"]
}, Open  ]],
Cell[2821, 74, 120, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[2966, 80, 115, 1, 31, "Input"],
Cell[3084, 83, 133, 2, 30, "Output"]
}, Open  ]],
Cell[3232, 88, 1030, 27, 172, "Input"],
Cell[CellGroupData[{
Cell[4287, 119, 92, 1, 31, "Input"],
Cell[4382, 122, 141, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4560, 129, 328, 5, 72, "Input"],
Cell[4891, 136, 106, 1, 30, "Output"],
Cell[5000, 139, 114, 1, 30, "Output"],
Cell[5117, 142, 476, 10, 21, "Message"]
}, Open  ]],
Cell[5608, 155, 104, 1, 31, "Input"]
}
]
*)

(* End of internal cache information *)

